home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / mpmod160.zip / TELEMATE.ZIP / ZMODDN1.SCR < prev    next >
Text File  |  1993-01-01  |  2KB  |  47 lines
  1. ;
  2. ; Telemate Script for the downloading of files - resuming IS allowed.
  3. ;
  4. ; The "-w" switch tells MPModem to "warble" after it has finished (to wake
  5. ; up those sleepy operators :->) but is only available to REGISTERED users
  6. ; (so register).
  7. ;
  8.  
  9. ;
  10. ;Procedure to convert a string of space characters to underline characters
  11. ;
  12. PROCEDURE Convert STRING line
  13. INTEGER rr
  14. WHILE rr <> 0
  15. STRPOS line," ",rr
  16. STRSET line,"_",rr,1
  17. rr = rr + 1
  18. ENDWHILE
  19. ENDPROC
  20.  
  21.  
  22. STRING param,baud2,port2,dummy,downdir,boardname
  23. INTEGER stat, baud1, port1
  24.  
  25. QUERY Baud,baud1
  26. QUERY Port,port1
  27. QUERY Board,boardname
  28. QUERY DirDownload,downdir
  29.  
  30. param = "mpmodem -rz -w -y -c -f -l -b" ; Set up the parameter list
  31. ITOA baud1,baud2                      ; Convert integer baud rate to a string
  32. ITOA port1,port2                      ; Convert integer port rate to a string
  33. CONCAT param, baud2                   ; Add the baud rate to the parameter list
  34. CONCAT param, " -p"                   ; Set up the switch for the port number
  35. CONCAT param, port2                   ; Add the port rate to the parameter list
  36. CONCAT param, " -v"                   ; Set up the switch for the board name
  37. IF NOT CONNECTED                      ; Are we connected to a BBS (or whatever)
  38. boardname = "Offline/Direct_Connect"  ; No, so put a dummy name in
  39. ELSE
  40. Convert boardname                     ; Yes, so grab and convert the name
  41. ENDIF
  42. CONCAT param,boardname                ; Add the boardname to the parameter list
  43. CONCAT param," -t0 "                  ; Put a dummy time in.
  44. CONCAT param, downdir                 ; Add the download dir.
  45.  
  46. DOS param                             ; Run the program.
  47.